﻿''' <summary>
''' Author: Michael86khuyen
''' </summary>
''' <remarks></remarks>
Public Class myRichTextBox
    ' Public frm As New FrmBase
    Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
        CheckRedo_undo(Me)
    End Sub

    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        mdiMain.UndoToolStripMenuItem.Enabled = True
        
    End Sub

    Protected Overrides Sub OnSelectionChanged(ByVal e As System.EventArgs)
        If (Me.SelectedText.Length > 0) Then
            mdiMain.CopyToolStripMenuItem.Enabled = True
            mdiMain.CutToolStripMenuItem.Enabled = True
        Else
            mdiMain.CopyToolStripMenuItem.Enabled = False
            mdiMain.CutToolStripMenuItem.Enabled = False
        End If
    End Sub
    
    
    
    'Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
    '    Dim frm = New FrmBase()
    '    'frm = mdiMain.ActiveMdiChild
    '    frm.bStatus = True
    'End Sub

End Class
